home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / pref / WmDefault.fsc < prev    next >
Text File  |  2001-12-08  |  2KB  |  58 lines
  1. # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: WmDefault.fsc,v 1.1.2.2 2001/12/09 02:52:40 idiscovery Exp $
  4. #
  5. #
  6.  
  7. proc tixPref:InitFontSet:WmDefault {} { 
  8.     global tixOption
  9.  
  10.     package require wm_default
  11.     if {1 || ![info exists ::wm_default::wm]} {
  12.     wm_default::setup
  13.     wm_default::addoptions
  14.     }
  15.  
  16.     set tixOption(font)     $::wm_default::system_font
  17.     set tixOption(bold_font)    [concat $::wm_default::system_font bold]
  18.     set tixOption(menu_font)    $::wm_default::menu_font        
  19.     set tixOption(italic_font)  [concat $::wm_default::system_font italic]
  20.     set tixOption(fixed_font)   $::wm_default::fixed_font
  21.     set tixOption(border1)      $::wm_default::borderwidth
  22.  
  23. }
  24.  
  25. proc tixPref:SetFontSet:WmDefault {} { 
  26.     global tixOption
  27.  
  28.     package require wm_default
  29.     if {1 || ![info exists ::wm_default::wm]} {
  30.     wm_default::setup
  31.     wm_default::addoptions
  32.     }
  33.  
  34.     set pri $tixOption(prioLevel)
  35.  
  36.     set tixOption(font)     $::wm_default::system_font
  37.     set tixOption(bold_font)    [concat $::wm_default::system_font bold]
  38.     set tixOption(menu_font)    $::wm_default::menu_font        
  39.     set tixOption(italic_font)  [concat $::wm_default::system_font italic]
  40.     set tixOption(fixed_font)   $::wm_default::fixed_font
  41.     set tixOption(text_font)    $::wm_default::text_font
  42.     set tixOption(border1)      $::wm_default::borderwidth
  43.  
  44.     option add *TixBalloon*Label.font         $tixOption(font) $pri
  45.     option add *TixBitmapButton*label.font     $tixOption(font) $pri
  46.     option add *TixControl*label.font              $tixOption(font) $pri
  47.     option add *TixLabelEntry*label.font           $tixOption(font) $pri
  48.     option add *TixLabelFrame*label.font     $tixOption(font) $pri
  49.     option add *TixMenu.font            $tixOption(menu_font) $pri
  50.     option add *TixMwmClient*title.font        $tixOption(font) $pri
  51.     option add *TixNoteBook.nbframe.font    $tixOption(font) $pri
  52.     # Although its a menubutton, it's more like a button than a menu IMHO
  53.     option add *TixOptionMenu*menubutton.font    $tixOption(font) $pri
  54.     option add *TixComboBox*Entry.font        $tixOption(font) $pri
  55.     option add *TixFileSelectBox*Label.font        $tixOption(font) $pri
  56.  
  57. }
  58.